(insert-file-contents-literally): Bind

inhibit-file-name-handlers and inhibit-file-name-operation, not
jka-compr-compression-info-list.

diff --git a/lisp/files.el b/lisp/files.el
index e81a20b76973c5c245ec828d3036e45d521a114b..804f35bb6e9b61215f13b523051f04ded25a178d 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1178,11 +1178,12 @@ This function ensures that none of these modifications will take place."
        (after-insert-file-functions nil)
        (coding-system-for-read 'no-conversion)
        (coding-system-for-write 'no-conversion)
-       (jka-compr-compression-info-list nil)
        (find-buffer-file-type-function
         (if (fboundp 'find-buffer-file-type)
             (symbol-function 'find-buffer-file-type)
-          nil)))
+          nil))
+       (inhibit-file-name-handlers '(jka-compr-handler image-file-handler))
+       (inhibit-file-name-operation 'insert-file-contents))
     (unwind-protect
        (progn
          (fset 'find-buffer-file-type (lambda (filename) t))